package Managed.Logger is
  type Logger_Command_Type is (Log, Stop);

  protected Command is
    procedure Set (cmd : in Logger_Command_Type);
    function Retrieve return Logger_Command_Type;
  private
    Command : Logger_Command_Type := Stop;
  end Command;
end Managed.Logger;
